home *** CD-ROM | disk | FTP | other *** search
/ Workbench Design / WB Collection.iso / workbench werkzeuge / publicscreen manager / screenfool / pwpub.sf < prev    next >
Text File  |  1996-04-07  |  458b  |  24 lines
  1. /* PWPub.rexx - Run ProWrite on Public Screen */
  2.  
  3. parse arg Arguments
  4.  
  5. if ~showlist('p','ScreenFool.1') then do
  6.   address command 'run ScreenFool'
  7.   call delay(50*5)
  8.   end
  9.  
  10. address 'ScreenFool.1'
  11.  
  12. 'back ProWrite'
  13. if(rc>0) then do
  14.   'new ScreenName=ProWrite Planes=5 nogui ScanType=Text font=dpaint.font size=8'
  15.   if(rc>0) then exit;
  16.   end
  17.  
  18. 'status "Loading ProWrite..."'
  19.  
  20. address command 'prowrite:prowrite -screen:ProWrite 'arguments
  21.  
  22. 'close ProWrite'
  23. exit
  24.